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1 
1b-se -1984 :22:07 AX-11 Bliss-32 V4. on 7se Pa 1 
14 Sep 1382 96:20:01 MTAACP.SRCJHEADER.B32;1 ” (1) 


y) MODULE HEADER (LANGUAGE (S838) . 
— = *v04-000' 


BEGIN 


' 
POOR R EHR E EERE AE TERA TAEA TAREE AEE AE EAE AE EAE AE EATER EEAAERERAREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 


Bee5sEece 


| 
| 
1 
| 
& 
0010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | 
Bei : ° ALL RIGHTS RESERVED. * 
* et 
oo1§ 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiep * 
14 1! ONLY IN ACCORDAMCE WITH RMS LICENSE AND WITH THE * 
0015 1! CLUSION OF THE \BOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y 4 ® 
po18 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
001 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pots : e TRANSFERRED. * 
'@ + 
0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
oo5§ ; ? CORPORATION. * 
'e * 
00246 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oo H : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
ie ® 
0027 1 ie » 
0028 1 VeRO R EERE EEA AAEAE ERATE REESE EERE AAAS 
0029 1 
$086 1 !¢¢ 
0031 1! 
ot T4 1! FACILITY: MTAACP 
0035 1! | 
0034 1} ABSTRACT: 
0035 1! This module contains routines which position to headers or trailers 
0036 1! and read them. 
0037 1! 
sit : ENVIRONMENT: 
0040 1! Starlet operating system, including privileged system services 
0041 1! and internal exec routines. 
Bog ss. 
0043 1 !=<= 
0044 1 
0045 1! | 
0046 1! 
Been : : AUTHOR: D. H. GILLESPIE, CREATION DATE: 25-MAY-77 15:00 
0049 1 | MODIFIED BY: | 
0050 1! 
0051 1! v03-006 n0se5 Dumont, 13-Aug-1984 15:17 
B226 1! Fix to fix mnD02BS2 the way it was implemented the call 
p27 : : wasn't getting made. 
55 1! v03-005 mMD0300 Meg Du 20-Jun-1984 11:23 
2026 1! Fix to default Buffer otteie length to zeros, when no HDR2 
0057 1! is present for the file. 
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CREE RINT RLS 


VO3-004 mmpD0285 Meg Dumont, o-forn 1906 17:18 
Fix to READ_HDR to incllude calling the clear 
seriuos exception routine after the headers are 

read. This is so that we do not leave the 
TMSCP drives left in serious exception state 

if we read into the TM while reading the headers. 


v03-003 MMD0280 Meg Dumont, 23-Mar-1984 10:27 
Fix long file name support such that for ANSI version | 
3 volumes it converts the exentsion Length to 
ASCII characters before writing it to the label. 


v03-002 ROW0258 Ralph 0. Weber 21-NOV-1983 
The Paul Painter Memorial Enhancement 


Named for one of the unfortunate customers who suffered much 
to determine the great UCBSL_MT_RECORD secret while ob be to 
create a user-written magtape driver, this change eliminates 
use of the device dependent field, UCBS$L MT_RECORD in favor of 
the device independent field, UCBSL_RECORD. 


vO3-001 MMD0162 Meg Dumont, 26-Apr-1983 9:36 
Change reference to 80 to the s,mbol ANSI_LBLSZ. Change READ_HDR 
to read in the HDR4 Label or if not found to default the values. 


VO2-010 REFORMAT Maria del C. Nasr 30-Jun-1980 


V02-009 MCNO016 Maria del C. Nasr, 18-Jun-1980 11:55 
Initialize default HDR2 with blanks, instead of zeroes, to 
avoid setting the old RMS attributes field. 


A0008 MCNO0013 Maria del C. Nasr 11-Mar-1980 11:25 
Check for HDR3 instead of HDR2 to determine if current file 
should be includeo in search or not. 


A0007 = MCNOC11 Maria del C. Nasr 04-Feb-1980 9:05 
Add input parameter to UPDVCB_LEOV routine to either clear 
or set flag, and make routine global. 


A0006 MCNO003 Maria del C. Nasr 28-Sep-79 10:39 | 
Add HDR3 processing 
A000S SPR24948 Maria del C. Nasr 1-Sep-79 17:30 | 


A pl spacing to eof when current position bit set to 
x bug. 


LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
REQUIRE *SRCS:MTADEF .832'; 
FORWARD ROUTINE , 
READ_HDR : COMMON_CA ' read HDR1, HDR2, and HDR3 and HDR4 if exist 
e 


Te | 
SPACE EOF : COMMON”CALL NOVALUE, ! space to end of fi 
SET_NOMBER_OF_LABELS : COMMOR_CALL NOVALUE, | set the number of labels read | 


D1 
ADER 16-Sep-1 
ett 12-868} 
> 115 1 UPDVCB_LEOV : COMMON_CALL NOVALUE, 
; 116 38 1 MAKE_COR FILE : COMMON“CALL NOVALUE, 
> 500 1 WRAP~AROOND : LSWRAP™ AROUND; 
: 8 9802 | EXTERNAL é 
; 120 $258 1 CURRENT_UCB : REF BBLOCK, 
: 121 05046 1 10_PACKET : REF BBLOCK, 
> 122 0505 1 HDR1 : REF BBLOCK, 
: 123 0506 1 HDR REF BBLOCK. 
: 136 §268 i NDRG REF Tit 
; : LOCK; 
> 126 0509 1 


3Be 93:28:27 ENTAACeoSReSneartR-p30s1 Powe os 


update VCB logical end of file 
update VCB 
continue search at beginning of volume set ! 


address of 10 request packet 
address HDR1 Label 

address of HDR2 Label 
address of HDR3 Label 
address of HDR4 Label 


<= 


© 
. 
o 
7 
a 
. 
. 
. 
* 
7 
e 
. 
e 
. 
. 
o 
oe 
. 
. 
. 
. 
7 
. 
- 
+ 
. 
*. 
. 
a 
. 
. 
7 
o 
7 
. 
o 
. 
* 
. 
7 
. 
o 
a 
~ 
oe 
. 
2 
7 
. 
. 
o 
° 
o 
. 
. 
. 
e 
7 
e 
. 
e 
. 
e 
. 
e 
. 
B 
. 
e 
. 
o 
* 
e 
. 
e 
o 
. 
. 
° 
. 
ca 
o 
o 
” 
a 
~ 
ae 
. 
oO 
o 
e 
. 
* 
. 
° 


om 


a 


SUSI 


WWAWAAINIAIRPIPONINOPSNININININY 2 2 PO OPO oe 


MEW O OONOUES WAR HO OOVNOULS WN Oo 


A) Se Cee et ABE Ny heh tay Be Lae Ty Ay Ie eo ees cae p ste tee a 
PAN HOSS TOO RUN OD NOU BUN O 000 VOU PWN DO O00 NO OI BO OO0 I OOD 


PVP PUPVPVPU PUPP SUSU SESSILIS SESS SUSUSTSUITFTSTUTTTSTSII 


PEDA_ED Arr & BS EE EEE EWI 


09000909 INI NN SI IS NN SIO O O 
Ce Je he eee ee oe ee oe oe ee ee nm i nw ww pono nl alolol elon lo lola lololololololololelelolol ol ole ola ola) —) 


PROPIPIMONPDPOPIMINYPINDNIPIPIMPININPINIAIMONIN IAI 8 st nt st rst st st sn kk tt kk tk kt kk hd tt a tt 


ee ee ieee ee ee ee eee eee eee 


ww 


cinecirainctstantinicinicelteaieeiatainn 
1 
1b-Se -1984 02:22:07 AX-11 Bliss-32 V4.0-74 Page 4 
10-Sep-1984 eae MTAACP.S CIHEADER.B32; : (2) | 
GLOBAL ROUTINE GET_START_HDR : LSGET_START_HDR = 
++ 
' 
FUNCTIONAL DESCRIPTION: 
This routine positions to the header label set of the start file 
in current search and reads HDR1, HDR2, HDR5 and HDR4 Labels unless 
they have already been read. 


CALLING SEQUENCE: 
GET_START_HDR() 


i 

i 

i 

i 

i 

i 

i 

i | 

' INPUT PARAMETERS: 

none 

i IMPLICIT INPUTS: 

CURRENT_VCB, CURRENT_UCB 

i OUTPUT PARAMETERS: 

none | 

i IMPLICIT OUTPUTS: 

! HDR1 read in, HDR2 read in or defaulted, HDR3 read in or defaulted 

} HDR4 read in or defaulted 

i ROUTINE VALUE: ; 

: unsuccessful, logical end of volume set 

1 successful 

i SIDE EFFECTS: 

none 

i -_ 
} 
} 


BEGIN 
EXTERNAL REGISTER 
COMMON : 
EXTERNAL ROUTINE 
MOUNT_VOL : COMMON_CALL; ! mount volume 
EXTERNAL 
CURRENT_UCB : REF BBLOCK, ! address of current ucb 
LOCAL_FT8 : BBLOCK; ! copy of user's fib 
LOCAL ; 
RELATIVE_BLOCK, ! relative block number to last tm 
TM; ' number of tm's 


mount volume if the current relative volume number is zero 


IF .CURRENT_VCBCVCB$B_CUR_RVN] EQL 0 
MOUNT_VOL(1, SFIELDMASK(MOUSV_REWIND) + $F IELDMASK(MOUSV_LBLCHECK)); 


= OO wc 0s ss )53)39397:790909I0I0I0I_SI_—_—=_ ss 


; e 1 ' 
HEADER 16-Sep-1984 02:22:07 AX=-11 Bliss-32 V4.0-742 P 5 
vO4-000 10230821984 93:8 741 EMTAACP. SiC HEADER 83271 er? ) 


} if at logical end of volume set, return immediately 


IF _ .CURRENT_VCBCVCBS$SV_LOGICEOVS] 
RETURN 0; 


! If the number of tape marks into the file is not 0, then the previous file 
! was closed prematurely and should not be included in search except in the. 
' case where there is no HDR3 and the tape is left positioned beyond the aie 
tm. If the section is not the first, then space to next file 
IF (.CURRENT_VCBCVCB$B_TM] NEQU 0 

NOT (.CURRENT_VCBCVCB$B_TM] EQLU 1 AND .HDR3CHD3$L_HD3LIDJ NEQU ‘HDR3' 

(. CURRENT_UCBCUCBSL_RECORD] - .CURRENT_VCBCVCBS$L_ST_RECORD]) EQLU 0)) 

- CURRENT_VCBCVCB$W_CUR_SEQ] GTR 1 


| 
gg ESOC ! position to beginning of next file 


FREAVLSSSLSSRAN LESSER 
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07 
08 
09 ! If function is create, and current position bit is set, then force 

7 spacing to end of file, unless positioned in dummy file header set... 

2 0 ; 

1; IF CC. JO_PACKETCIOPSY_FCORES EQL IO$_CREATE) AND .LOCAL_F IBLF IBS$V_CURPOS]) 
2 (. CURRENT_VCBCVCB$B_TM) NEQU 0) AND (.CURRENT_VCBCVCB$W_CUR_NUM] NEQU 0) 
+ 828 SPACE_EOF (); 

19 060 ! When new volume is mounted, VOL1 has been read but not the header Labels. 

20 060 ! Therefore, the actual block count equals 1. If relative block count = 0, 

$1 Senz then the headers have not been read for this file. 

38 pene RELATIVE_BLOCK = .CURRENT_UCBCUCBSL_RECORD] - .CURRENT_VCBCVCBSL_ST_RECORD]; 
$2 bens IF C SELATIVE BLOCK EQL 0 OR .CURRENT_UCBCUCBSL_RECORD] EQLU 1) 

27 0609 . CURRENT_VCBCVCB$B_TM] EQLU 0 

8 3019 N 

9 11 RETURN READ_HDR(); 

pole 

31 061 RETURN 1; 

3 0614 ; 

3 0615 END; ! end of routine 


TRN CURRENT use. 10_PACKET 
TRN HDR1, HBR2, HDR3 


.TITLE HEADER 
SIDENT \V04-000\ 
EX 

EX 

EXTRN HDR4, MOUNT_VOL 
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1 
HEADER, 1B-Sep-1986 02:22:07 YAN-11 BL ieg-32 v4.0-742 Page 6 


| 
LEXTRN LOCAL_FIB | 
.PSECT S$CODE$,NOWRT,2 


; Routine Size: 142 bytes, Routine Base: S$CODE$S + 0000 


: 234 0616 1 


| 5A DD 00000 GET_START_HDR:: 
| 2F AB 95 0000 veut OTe cURRENT_vCB) : b228 
| 09 12 ite BNEQ 1$ a : 
03 DD 90007 PUSHL #3 : 0565 
01 DD 00009 PUSHL #1 : 
00006 CF 2 FB 0000 CALLS #2, MOUNT_VOL : 
73 0B AB &. 9901 1$: BS #1, 11(CURRENT_VCB), 7$ : 0570 
A 04 0001 CLRL =s_-aR10 > 0580 
2E AB 95 00017 TSTB 46(CURRENT_VCB) : 
20 13 OOO1A BEQL = 2 : 
A 06 0001C INCL R10 : 
01 2 AB O91 d00iE CMPB = 46 (CURRENT_VCB), #1 + 0582 
39 12 9002 BNEQ 3$ : 
33524448 8F 00006 DF D1 00024 CMPL § @HDR3, #861029448 : 
2E 13 0002D BEQL 46=s-3$ ; 
50 00006 CF 00 000¢F MOVL § CURRENT_UCB, RO + 0584 
30 AB 0080 CO D1 000 CMPL 176(RO)> 48(CURRENT_VCB) : 
21. 12 OO03A BNEQ 3 : 
01 26 AB B1 0003C 2$: CMPW © 38(CURRENT_VCB), #1 + 0586 
1B 1A 00040 BGTRU : 
50 00006 CF DO 00042 MOVL 10_PACKET, RO + 0595 
33 20 Ad 06 00 ED 00047 CMPZ7V #07 #6, 32(RO), #51 ; 
13 12 0004D BNEQ ; 
OD 00006 CF 04 £1 0004F BBC #4, LOCAL_FIB, 4$ : 
OA 5A E9 00055 BLBC =E.-s«wk?10,, : 0597 
24 AB B5 00058 TSTW  36(CURRENT_VCB) ; 
05 13 00058 BEQL «6s 4$ : 
0000v CF 0 FB 00050 3$ CALLS #0, SPACE_EOF : 0599 
50 00006 CF D0 00062 4$ MOVL. CURRENT UCB, RO : 0605 
51 0080 CO 30 AB C3 0006 SUBL3 48(CURRENT_VCB), 176(RO), RELATIVE_BLOCK ; 
07 13 0006E BEQL ©5$ : 0607 
01 0080 ¢cO pi 00070 CMPL  176(RO), #1 : 
0c Ne 00075 BNEQ 6$ : 
2—E AB 95 00077 S$: TSTB  46(CURRENT_VCB) : 0609 
07 12 0007A BNEQ ; 
0000v CF 00 FB 0007C CALLS #0, READ_HDR : 0611 
07 11 00081 BRB $ F 
50 01 D0 00083 6s: MOVL #1, RO : 0613 
08 11 00086 BRB 8$ ; 
D4 00088 7$: CLRL = RO + 0615 
SA BE DO OOOBA 8S: MOVL (SP)+, R10 ; 
05 0008D RSB : 
| 
| 
| 


PARA AAAAAAAAAAAAAAO 
FP AAWN NANA GPIPIPONPIPONPPONYNIN 


ooooo 


SSFSS. 
WO OONAUES WN" OCONOUE WN O0OO~ 


AS A ee ee eee D8 
WR —O DONO USWN—O0OO~ 


Aan 
“ 
SSSESSSSSSSOSSSSIOSS 
PAPA & BE EE EEE 
DWONOULS WN -"OOONOUS 


SANS 


PIPIPIPOPINOPONDFINONINIPO PENN Po Po nonononofnofnononofponofororony ¥ 
oco JSIARANASSELEF 


Ree 
aa: 


#3 


PROPOPOROPOROMONENONONONONONONPONRNUD SS 9 


MIMVMIMPON IT IPD 


SSLEAL 


8S 


aeeee 


NMorPonony 
oo 

m= 

So 

AOAOon 

™N“ 
Wnr—OOo 


GLOBAL ROUTINE READ_HDR : COMMON_CALL = 


lee 


1 
FUNCTIONAL DESCRIPTION: 
Read HDR1, and HDR2 if it exists - otherwise, it is defaulted. 
HDRS is read only if HDR2 is found, and if starlet file. HDR4 
is read if the HDR3 is read. 


CALLING SEQUENCE: 
READ_HDR() 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
CURRENT_VCB = address of VCB 


| 

| 

OUTPUT PARAMETERS: 
none 

| 


DR1, HDR2, HDR3 , and HDR4 read in 

If starlet file, VCB notes this fact ! : 

Also the number of labels that the mtaacp found is set in the V(B- , : 

If logical end of tape (ie: tm encountered on read of HDR1) then this fact is noted in VCB 


ROUTINE VALUE: 
0 = tm encountered when reading HDR1, logical end of volume set 
1 = successful 


SIDE EFFECTS: 
First user Label may be located in scratch label area 


USER ERRORS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
IMPLICIT OUTPUTS: 
: H 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
SS$_TAPEPOSLOST - HDR1 not encountered on read 
le 


Be te Se Ge Ge Ge Se Se Se Se Ge Se Ge Se Se ee Se Se Se Se Se ee Se Se Se Se Se Se See Se Se ee Se Se Se Se eeae 


BEGIN 


LOCAL 
MVL : REF BBLOCK, 
NUMBER OF LABELS, 
SCRATCA :"REF BBLOCK, 
DESCR : VECTOR [2,LONG); 


EXTERNAL REGISTER 
COMMON_REG; 
EXTERNAL ROUTINE 
CHCK_JO_CLR_EXCP : COMMON_CALL NOVALUE, 
iss : L$SISSUE_I0, ' Issue an 10 to caer drive 
READ_SLOCK : COMMON_CALL; ! read one magtape blo 


BIND 
CVTS5 = DESCRIPTOR('!52W"), 


ck 


-1984 02:22:07 AX-11 Bliss-32 V4.0-7 P 8 
1382 95:28:07 MTAACP.SRCJHEADER. 335; — (3) 


: 3? S676 DEFAULT = UPLIT ('00512'); : 
: 95 bes ! Initialize the number of Labels read. This number will eventually : 
; 296 67 i be stored in the VCB and will be used on volume switch and file close : 
: 44 0678 i to determine the number of labels to write to the tape : 
: 299 680 NUMBER_OF LABELS = | ; 
; 300 0621 IF NOT~READ_BLOCK(. Sri. ANSI_LBLSZ) ; 
3 01 bens THEN $ 
3 og 06 BEGIN $ 
4 0 0684 KERNEL_CALL(UPDVCB_LEOV, 1); é 
: 304 eH RETURN 0; 3 
s 305 6 § r 
: 306 068 END; 3 
; 307 0688 3 
3 08 0689 WHILE 1 F 
3 09 0696 DO ‘ 
5 10 0691 BEGIN ; 
5 11 069 3 
4 \¢ 069 IF .HDRICHDISL_HDILIDJ EQLU ‘HDR1' $ 
; 1 0694 3 
: 14 0695 EXITLOOP; : 
3 15 0696 $ 
3 2i$ +234 IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) ; 
: 316 0699 ERR_EXIT(SS$_TAPEPOSLOST); : 
3 19 0700 F 
; 320 0701 END; 3 
; 321 070 3 
; 356 070 NUMBER_OF LABELS = 1; : 
3 $7 Bros KERNEL ~CACL (RAKE _CUR’ FILE, .HDR1); : 
: 325 878 ' Default HDR2, HDR3, and HDR4 values : 
F 358 0708 3 CHSFILL(' ', ANSI LBLSZ, .HDR2); : 
: 328 0709 CHSFILL(O, ANSI LBLSZ DR3); ' clear HDR3 area : 
; $6 o710 ; CHSFILL(**,ANST-UBLS2, "-HDRGS ; i clear HDR4 area ; 
; 32 Bg ! Default the HDR4 fields according to the version type. : 
; 3§ 0714 MVL = .CURRENT_VCBCVCBSL_MVL); ; 
; $e 4k If -AVLCAVLSB_ STDVER] GTR 3 : 
; 3 O71? HDR4CHD4$B_FILEID_EXT_SIZEJ = 0 ! Default size to 0 
; $30 0719 CHSFILL('O", HD4SS_FILEID_EXT_V3, HDR4CHD4S$T_FILEID_EXT_V3]); 
: 340 721 HDR2CHD2$B $B_RECEORMAT) = — 
3 1 7 § crt = Wess BLOr 
; 4g , : ESE RES = HDR2CAD2$T NBLOCKLEN]: 
: $ 4 5 IF NOT SFAO(CVTS, 0, DESCR, .CURRENT_UCBCUCB$W_DEVBUFSIZ)) | 
: 46 ? § CHSMOVE (HD2$S_BLOCKLEN, DEFAULT, HDR2CHD2$T_BLOCKLEN)); 
: £8 g $ CHSMOVE (HD2$S_RECLEN, HDR2CHD2$T_BLOCKLEN], HDR2CHD2$T_RECLEN)); | 

| 


a 
b=Sep-1984 02:22:07  VAX-11 Bliss-32 v4.0-742 ° 9 
eat rie ead Lo hg Pere ee a 


; 731 IF_.CURRENT_VCBLVCB$W_RECORDSZ] NEQ 

; 732 THEN 

aH SESE oy os we308 necien 

Py = Po 

; , 5 DESERET = NDROEADOST RECLEN]; 

: g 5 4 IF NOT SFAO(CVTS, 0, DESCR, .CURRENT_VCBLVCB$W_RECORDSZ) 

: a785 CHSMOVE (HD2$S_RECLEN, HDR2CHD2$T_BLOCKLEN], HDR2CHD2$T_RECLEN)); 
: 74 END; 

: r8 ! Set up the defau\t buffer offset length field. In case there 

3 rie ' is no HDR2 Label 

: O46 HDR2CHD2$T_BUFOFF = '00'; 

: 0748 ' Set up the Scratch area to read the labels into to determine if 

; 3544 ! this is a good label, before copying it into the real label field. 

; O79 SCRATCH = .HDR1 + SCRATCH_OFFSET; 

: oreg ! Now try to read HDR2 

: gas g 

: 0756 If READ_BLOCK(.SCRATCH, ANSI_LBLSZ) ! read into scratch area 

; fe E4 2 THEN 

: 378 0759 $ IF .(.SCRATCH) EQLU "HDR2' 

BB fee 

: 381 076¢ CHSMOVE(ANSI_LBLSZ, .SCRATCH, .HDR2); ! HDR2 found 

: Be 0768 NUMBER_OF_LABELS = 2; 

; 384 0765 IF .CURRENT_VCBLVCB$V_STARF ILE] ! if starlet file 

2 re sly 

: 387 0768 4 IF READ_BLOCK(.SCRATCH , ANSI_LBLSZ) ! try to read HDR3 

: 389 8790 BEGIN 

; 390 orn 5 IF_.(.SCRATCH) EQLU "HDR3' 

Bo Beg eh 

; 38 0774 6 CHSMOVE(ANSI_LBLSZ,_.SCRATCH, .HDR3);  ! HDR3 found 
3 Be 148 5 - NUMBER_OF __LABELS = 3; 

: 96 0777 IF READ BLOCK(.SCRATCH , ANSI_LBLSZ) ! try to read HDR4 
; 98 179 ; LF « ¢-SCRATCH) EQLU 'HDR4’ 

: 400 781 6 GIN 

: 401 7 é 6 CHSMOVE(ANSI_LBLSZ, .SCRATCH, .HDR4); |! HDR4 found 
3 soe 7 g NUMBER_OF LABELS = 4; 

; 40 7 ND; 

: 604 785 & END; 

: 405 7 6 3 END; 

: 406 07 


1 
HEADER 16-Sep-1984 02:22:07 AX-11 Bliss-32 V4.0-74 Pp oa 
“Vbe-600 12-808-1 3c 96:¢ 241 EMTAACP SRE HEADER.B32; aoe Ry 
: O82 789 ' Call to clear TMSCP dri f the seri ion (reading th 
3 . 2a Oo clear rives of t Ss t t t 
: re ry ! mark) before returning to the user re 2 psec pgm, Abate 
: 411 79 CHCK_I10_CLR_EXCP(); 
: aig 79 KERNEL _CALLTSET_NUMBER_OF_LABELS, NUMBER_OF LABELS); 
; 41 794 RETURN 1; ' return success 
: 616 795 
; 615 796 #1 END; ! end of routine 
57 SA 35 21 0008 P.AAB: .ASCII \!5ZW\ : 
44194 -BLKB 2 
00000004 00094 P.AAA: .LONG 4 : 
00000000' 00098 -ADDRES 3 


P.AAA 
P.AAC 
-EXTRN CHCK_IO_CLR_EX 


EXCcP 
-EXTRN ISSUE_10, READ_BLOCK 
EXTRN SYSSCAKRNL, SYSS$FAO 


00 00 00 32 31 35 30 30 0009C P.AAC: 
CvT5= 
DEF AULT= 


07FC 00000 -ENTRY READ_HDR, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 =; 0617 
SA 00006 CF 9E 90002 MOVAB HDR : 
59 000000006 9F H 0000 MOV @#SYSSCMKRNL, RO ; 
5E 08 C2 O000E SUBL2 #8, ; 
58 D4 00011 CLRL  §NUMBER_OF_LABELS : 0680 
7E 50 BF 9A 90015 MOVZBL #80, -TSPY > 0681 
00006 CF oD 60017 PUSHL  HDR{ : 
0000G CF 9¢ FB 0001B CALLS #2, READ_BLOCK : 
10 50 €8 00020 BLBS RO, 1$ : 
01 DD 00023 PUSHL #1 + 0684 
01 DD 00025 PUSHL #1 : 
5E DD 00027 PUSHL SP : 
0000v CF 9F 00029 PUSHAB UPDVCB_LEOV : 
69 04 FB 0002D CALLS #4, SYSSCMKRNL 3 
0165 31 00030 BRW > 0685 
31524448 8F 00006 DF Di 909 3 1$: CMPL @HDR1, #827475016 : 0693 
16 13 0003¢ BEQL : 
7E 50 8F 9A 900 : MOVZBL #80, -(SP) > 0697 
00006 CF DD 0004 PUSHL HDR ; 
00006 CF 08 Fe 0046 CALLS #2, READ_BLOCK ; 
E5 E 48 BLBS RO. 1 : 
0224 BF BF OO4E CHMU «0=s-s#548 : 0699 
DF 11 0005 BRB 1$ : 0689 
58 01 DO 00054 2s: MOVL #1, NUMBER_OF_LABELS + 0703 
00006 CF 0D 00057 PUSHL HDR1 : 0704 
1 DD 00 B PUSHL #1 ; 
E bb 5D PUSHL SP F 
0000v CF 9F 0005F PUSHAB MAKE_CUR_FILE ; 
9 04 FB 0063 CALLS #4, SYSSCMKRNL ; 
7 6A p 00 VL. HDR2, R + 0708 
GE 09 C i 9 MOVCS #0, (SP), #32, #80, (R7) : 
6E 6 2c $74 MOVCS #0, (SP), #0, #80, @HDR3 : 0709 


$ Bete 
\00512\<0><0><0> : 


‘tH 


0050 


8F 


20 


000000006 


Of Ad FF2A 


OA A7 05 
04 
000000006 
OA AO 05 
32 
57 00006 
00006 
32524448 
00 BA 
00006 
33524448 
00006 ODF 


SUMO OW NEVO COWIE NOPuruicoo 
mon WAV MLSON WORM MNOOOCOWOO 


SRE 


, 3 
4 
0 

04 A6 

6 

3030 F 
46 F 

5 

83 A7 
0000G CF 
42 =A0 
04 AE 
7E 

FF34 =CF 
gs 

0 

6A 

05 

6A 

05 

50 AB 
28 

05 

OA A? 
50 = AB 
04 AE 
7E 

FEFD «CF 
9s 

0 

6A 

05 

6A 

3030 8F 
0000140 = =8F 
50 Ha 

7 

02 

8 
0050 «BF 
02 

3 
0050 F 
33 

50 F 


mo 
oo 


0 000 
54 O08 
1B 0009 
94 des 
11 0009 
4 097 3$: 
3 BRy8 4$: 
Sit 
8 OAA 
C OOOAF 
9F 00083 
D4 00086 
hse 
£8 ita 
DO 000C6 
28 000C9 
0 000D0 5$: 
28 00003 
BS 00009 
13 0000C 
DO OOODE 
9E 000E1 
3C O00E6 
9F OOOEA 
D4 OOOED 
9F OOOEF 
FB QOOF3 
EB OOOFA 
DO OOO0FD 
28 00100 
DO 00106 6$: 
BO 00109 
C1 0010F 
9A Belie 
DD 0011D 
FB OO11F 
E9 00124 
»} 4 7 
iis 
2 4 
DO 00137 
gy O13A 
A 001 
DD 0014 
fe 14 
E 149 
Di 0014 
1 1 
2 1 
BR 10 7$: 


M 
MOVZBL 


ee: Bliss-32 V4.0-742 
MTAACP.SRCJHEADER.B32; 1 


HDR4, R6 

#0, (SP), #32, #80, (R6) 
2(CURRENT_VCB), MVL 

3 (ML. a3 


10(R7) 
(CURRENT _VCB) 


2, RO 
#5, 5(RO), 10(RO) 
#1 Ste. 50(RO) 
#320, HDR1, SCRATCH 
#80, -(SP) 
SCRATCH 
e, READ_BLOCK 
(SCRATCH), #844252232 
#80, (SCRATCH), @HDR2 
#2, NUMBER_OF CABELS 
45¢CURRENT-VCB), 8$ 
#80, -(SP) 
SCRATCH 
’ , READ_BLOCK 
{SRATCH) #861029448 
#80, (SCRATCH), @HDR3 
#3, NUMBER_OF LABELS 
#86, -(SP) 


SMe Se Se Se Ge Se Se Se Se Se Se Se Se GH Se Se Se Ge Fe Ge Be Ge Se Se Se Ge Fe Ge Se Be Se Ge Be Fe Fe Ve Be Se Se Be Se Se Se Ge Se Se Se Se Se BeBe BeBe Se Be Be 


w 
oa 
a 
a 


ee: Oi ieee ct oe 
MTAACP.SRC JHEADER.B32; 


m1 
1ersep-1986 fS:c6s01 


‘tH 


vw w 
oo «wa. nw 
oo Av I 
oOo Twx< w 
oS @eaw 2 
a ~ 
~ JI va | 
+S an en en 1) w 
v~ @© Tuw uz 
o = vo ox 
—) —- ow ec 
@ .- <a 1 cz 
(-—~ @w & ww 
oa x= Va@~wo A 
z=a w wEw 1 ” 
Vw ~DIA >~oO 
-—-aoad 2uw Z2yYan 
< < . A] t 
@aewos« — es 6 
VNIOMSROTOD- Awe OC 
MBI~-ORVVZVHowz2zVe x 
eet) ~~ ee 
Zwvyvu4sogv4sTIITIis 
OI00w>>JIMMMH I>. are 
>< IE ZOO DDD D <A Ow sw 
AavcOrMEZ ZF A00AVYEeve 
& A 
ts) o 


Oo AAO 


OOO-—wOOMooecu OOvsy 
O4wWOor-WOu O000u OOa0 


-NOF Ou FOOr-wuwre O 


NOWMDODOOMOMLYOO Ww 
> 
Oo o 
wm Oo 
o o 
Oo Oo 
e—_Tu P-Ou ao 
VO OMW wow 
oO oo 
Oo @w o 
o w S 
o wr o 
o w Oo 
NM 
wn 
w 
~ 
“ 
a 
] 
o 
3 


411 bytes, Routine Base: S$CODE$ + O0A4 


; Routine Size: 


1 


0797 


N 1 
16-Sep-1984 02:22:07 AX-11 Bliss-32 V4.0-74 
10288819 4 93:68:01 EATAACP.SRe HEADER.B32; 


=_—™m 


> 41 9 GLOBAL ROUTINE WRAP_AROUND : LSWRAP_AROUND = : 
£26 30 1 !+¢ ; 
> hel 11: 
; 4 é 0 02 1 | FUNCTIONAL DESCRIPTION: 
3; 4 05 1! If this is not the first time yty and the search started ‘ 
3 : : bape : at the beginning of the volume set then return error else rewind volume set ‘ 
: 426 0806 1 i CALLING SEQUENCE: 
; : t 4 : WRAP_AROUND () : 
: 429 9809 | i INPUT PARAMETERS: 
; 4 10 1! none : 
3: 431 0811 1! $ 
; 4 é OB1¢ 1 ! IMPLICIT INPUTS: ; 
: 4 0815 1! LOCAL_FIB = copy of user's fib : 
; ? : bale : } CURRENT_VCB = address of current volume VCB : 
: 436 0816 1 | OUTPUT PARAMETERS: 2 
Bag Sia Bh ae : 
: 439 0819 1 IMPLICIT OUTPUTS: : 
atmos Be ae : 
; 46 08 é 1 ' ROUTINE VALUE: 
; «44 08 1! 0 back to beginning of search : 
; rr: oe : : } 1 at beginning of volume set : 
: 646 0826 1 i SIDE EFFECTS: 
3: 447 08 1! none : 
448 0828 1} 
5 449 0829 1 !-- ° 
; 450 0830 1 : 
; 431 0851 BEGIN ; 
; 28 0833 EXTERNAL REGISTER ; 
; 434 0834 COMMON. REG; ; 
: 456 te EXTERNAL ROUTINE ; 
3; 457 0837 MO : COMMON_CALL, ! mount volume ; 
; 458 obs REWINB_VOL_SET : COMMON-CALL; ! rewind volume set : 
; 460 $820 EXTERNAL ; 
; 461 0841 LOCAL_F 18 : BBLOC ! copy of user's fib : 
i 465 Ose§ IF CURRENT_VCBCVCBSL_STARi_F1D] EQL %X*00010001" ; 
; 465 ie euseRETURN 0 ; 
: te? , BEGIN ; 
; 468 B48 REWIND_VOL_SET(); : 
; rth 329 | get first volume mounted : 
; ri! B5¢ MOUNT_VOL(1, SFIELDMASK(MOUSV_REWIND) + $F IELDMASK(MOUSV_LBLCHECK)); : 
i: 47% 0854 IF NOT READ_HDR() : 


| 
2 | 
18. -Sep-1984 02:22:07 AX-11 Bliss-32 V4.0-742 Page 14 IN 
14- =tep- 13 4 6: eg: 241 MTAACP. SRC JHEADER.B32; 1 ’ (4) | vO 
; 5 EN | 
: $ ERR_EXIT(SS$_TAPEPOSLOST); | 
: 85 END; | 
3 0 28 
3 8 60 RETURN 1; 
: 0862 7 END; ' end of routine 
00010001 =F 28 AB D1 00000 wRAP ~AROUND : : 
CMPL 40(CURRENT_VCB), #65537 3 0843 
1E 13 00008 BEQL : 
0000G CF 00 FB OOO0A CALLS i" REWIND_VOL_SET 3 0848 
03 DD 0000F PUSHL 3 0852 
01 DD 00011 PUSHL : 
0000G CF 02 FB 00013 CALLS a, MOUNT_VOL : 
FE48 =F 00 Fe 00018 CALLS 4 READ _ADR 3 0854 
04 50 €E8 0001D BLBS 1$ ; 
0224 BF BF 60020 CHMU " Sie > 0856 
50 01 DO 00024 1$ MOVL RO : 0860 
05 00027 RSB : 
50 D4 00028 28 CLRL RO E 3 0862 
05 0002A RSB : 


; Routine Size: 43 bytes, Routine Base: S$CODES + 023F 


: 483 0863 


1 


EXTRN REWIND_VOL_SET 


2 
HEADER 1b-s6 -1984 02:22:07 AX~11 Bliss-32 V4.0-742 Page 15 
Vv °500 1-Sep-19 4 95:28 70 EMTAACP-SRC HEADER B32. 1 (5) | 
Hy te? O83 ! GLOBAL ROUTINE SPACE_EOF : COMMON_CALL NOVALUE = 
; 487 26 1 !44 
: 488 867 1! 
; 489 G3 1 ! FUNCTIONAL DESCRIPTION: 
; 690 869 1! This routine spaces to the end of the current file, right 
; $33 + Ha : } before the next file. 
; 49 + 14 1! CALLING SEQUENCE: 
; 494 0873 1: SPACE_EOF () | 
; 495 0874 1! 
; +38 pare 1 ! INPUT PARAMETERS: 
; 49 876 1! none 
; 498 0877 1! 
; 499 0878 1! IMPLICIT INPUTS: 
; 500 0879 1! CURRENT_VCB _ address of current VCB 
: 501 0880 1! | 
: 308 0881 1 | OUTPUT PARAMETERS: 
>; 30 0882 1! none | 
> 504 0883 1! 
; 305 0884 1 ! IMPLICIT OUTPUTS: 
: 506 0885 1! none 
s S07 0886 1! 
: 508 0887 1 ! ROUTINE VALUE: 
; 509 0888 1! none 
3 310 0889 1! 
s St) 0890 1 ! SIDE EFFECTS: : 
: 2\¢ +94 : The tape is left positioned in front of HDR1 of the next file 
3 3% 0893 1 !-- 
: 315 0894 1 | 
s 316 0895 3 BEGIN 
3; Si 08 
>; tie 0897 2 SWITCHES NOOPTIMIZE; 
3 S19 0898 2 
s 520 0899 2 EXTERNAL REGISTER | 
: Be 0900 COMMON_REG; 
3 256 0901 
s. Se 090 EXTERNAL ROUTINE 
> 524 090 GTMEXT VOL_READ : JSB, ' get next volume on read 
; 253 0904 READ BLOCK : COMMON_CALL, ' read mag tape block 
; $$ B309 SPACE_TM : COMMON” CALL; ! space tm's 
s Ser 906 
3 : 8 st EXTERNAL 
3 2 ‘4 443 CURRENT_UCB : REF BBLOCK; ! address of current ucb 
3 $351 0910 LOCAL 
. rt " 
2 i o3t§ If tape is positioned in header set, space 2 tape marks 
; 536 O35 
; tH Big r . CURRENT_VCBCVCB$B_TM] EQL 0 AND .HDRICHDISL_HDILID) EQL ‘HDR1' 
; 336 $918 SPACE_TM(2); 
; 340 oaks : 
3; «541 920 ! if in data area, space 1 tape mark 


2 
“1984 02:22:07  YAX-11_BLis$-32_v4.0-742 Page 1 
epa1084 13:46:41 EMTAACPSRESHEADER 321 ae 


> 54 921 : : 
> 54 9 : 
3 544 ‘ IF .CURRENT_VCBCVCB$B8_TM) EQLU 1 
; 545 904 THEN | ; 
; eg 09 5 SPACE_TM(1); | : 
3 549 03 ; Now if trailer label has not been read, read it : 
: 550 03 9 ; 
: 22} 3 9 IF .CURRENT_VCBCLVCB$B8_TM] EQLU 2 : 
3 st 03 ¢ THEN CURRENT UCBCUCBSL_RECORD) - .CURRENT_VCBLVCBSL_ST_RECORD]) EQL 0 | 3 
; 555 0934 | 

; 228 O32 IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) | 

: 558 $989 ERR_EXIT(SS$_TAPEPOSLOST); 

; 559 0938 

; 560 0939 WHILE 1 

; 561 0940 DO 

; 26¢ 0941 BEGIN 

; 56 ba 

: 564 094: IF .HDRICHDISL_HD1LIDJ EQL ‘EOF1' | 

; 565 0944 THEN 

+ 366 0945 EXITLOOP; 

; 567 0946 

. 568 0947 IF .HDRICHDISL_HD1LID] NEQ ‘EOV1'" 

; 569 0948 

: 570 0949 ERR_EXIT(SS$_TAPEPOSLOST); 

; 571 0950 | 

; 572 0951 GTNEXT_VOL_READ(); 

3 Sie 095 

; 574 095 IF .CURRENT_VCBCLVCB$B8_TM] EQLU 0 

; 575 0954 

; 576 0955 SPACE_TM(2) 

; 577 0956 

; 578 0957 SPACE_TM(1); 

; Sf 0958 

3 380 444 3 IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) 

; 582 0961 ERR_EXIT(SS$_TAPEPOSLOST); 

; 583 096 

; ope Boer END; 

; a $968 IF .CURRENT_VCBLVCBS$B_TM] EQLU 2 | 

s Ser 0966 

; #588 0967 SPACE_TM(1); 

; 589 0968 ; 

; 590 0969 1 END; ! end of routine 


-EXTRN GTNEXT_VOL_READ 
“EXTRN SPACE 


“™ 
07 90000 SENTRY SPACE_EOF, Save R2.R3,R4,R5.RO,R7.RE.RO.RIO ; 0864 
52 0000G CF 9E 00002 MOVAB SPACE_TM, R : 


Eo 


31524448 


30 


00006 


31464F45 
31564F45 


; mm 0970 


1 


62 
02 


62 


; Routine Size: 135 bytes, Routine Base: 


~N 
m 


00006 


2E 


2E 


SCODES + 026A 


SWOINI WIM OO OONWPOOOrOCOOCOU—P>r 
OME NUH ROM TN LOO SN — UI MOW 


a 
one 0 "090 —- 9 —- Cw | Oo SO amo O90 OC |S oTnTO OTTO OO 


o 
o 


Brcecses 


ooo 
~~ 


FDON HH] D9 ("FMM MW WS MOMS FNM On MON WON — Nu" 
oO 
oO 


COSCOCOSCOSOSOSOSOOOOOCOOCOSOOOSOOOOOOOOOOOOOOO 


o 


(CURRENT_VCB) 
DR1, #827475016 


7 
1 
6 
$ 
H 
$ 
( ACE_T™™ 

g CURRENT_VCB), #1 
1 
1 


0 
4 
4 
1 
a 
1 
g 
#i, SP 
46( 

2 

¢ 

#1, SPACE_TM 
46 (CURRENT_VCB), #2 


4 
CURRENT UCB, RO 
176(RO); 48(CURRENT_vCB) 


#80, -(SP) 

HDR{ 

#2, READ_BLOCK 

RO, 4$ 

#548 

@HDR1, #826691397 
QHORT, #827739973 
#548 
GTNEXT_VOL_READ 
46 (CURRENT ~VCB) 
6$ 

#2 

7$ 

#1 

Hl, SPACE_TM 
46(CURRENT_VCB), #2 
9$ 


# 
#1, SPACE_TM 


YA Bliss-32 V4.0-74 
MTAACP.SRCJHEADER.B3 


wo R 16560-1984 0: 73:9 07 AX-11 Oi ist =32 V4.0-742 Page 8 ee 


1 

14-Sep-19 41 MTAACP. SRC HEADER.B32;1 (6 vO: 
; ry 037% ! ROUTINE MAKE_CUR_FILE (LABELS) : COMMON_CALL NOVALUE = 
; 595 378 1 !e¢ 
3 0974 1: 
; 59 0975 1! FUNCTIONAL DESCRIPTION: 
: rb bone 1! This routine updates the current file number and the Starlet 
; 599 977 1! file indicator. 
: 600 0978 1! 
; 601 0979 1! Le SEQUENCE: 
3 4 3494 : MAKE_CUR_FILE(ARG1), call in kernel mode 
; 604 base 1 ! INPUT conere rons: 
; 605 9 1! ARG] = address of Labels 
; 606 0984 1! 
; 607 0985 1 ! IMPLICIT INPUTS: 
: 608 0986 1! none 
; 609 0987 1! 
; 610 0988 1 ! OUTPUT PARAMETERS: 
3; 611 0989 1! none 
3 216 0990 1! 
; 61 0991 1 ! IMPLICIT OUTPUTS: 
3; 614 9454 . § If file is Starlet file, then VCBSV_STARFILE = 
s 615 0993 1! CUR_NUM is updated 
; 616 0994 1! 
3; 617 0995 1 ! ROUTINE VALUE: 
; 618 0996 1! none 
; 619 0997 1! 
: 620 0998 1! SIDE EFFECTS: 
; 621 0999 1! none 
; 622 1000 1! 
: 623 1001 1 !-= | 
; 6246 HS 1 
; 625 1003 2 BEGIN 
: 626 1004 2 
; 627 1005 2 EXTERNAL REGISTER 
: 628 1006 2 COMMON. REG; | 
3 66° 1007 2 
; 6 1008 2 P 
: $33 1009 2 LABELS : REF BBLOCK; ! HDR1, HDR2, and HDR3 address | 
; 63 1011 $ BIND | 
; 634 HH ; ; . 
; tH bay Any file with 11 code will be supported, instead of only 11A | 
; e3 1915 STARID = UPLIT ("DECFILE11"); 
; 639 1019 —— ROUTINE ; : 
3 “y inig FORMAT_FID : COMMON_CALL; ! format file id 
3 ak} 1020 CURRENT_VCBCVCB$V_STARFILE) = Cwseet (9. STARID, 9, LABELSCHDI$T_SYSCODE],0); 
3: 64 1021 FORMAT_FID(CURRENT_VCBCVCB$W_CUR_NUMJ); | 
3 644 1022 1 END; ' end of routine 


oor -BLKB 3 
00 00 00 31 31 45 4€ 49 46 43 45 44 OO2F4 P.AAD: .ASCII \DECFILE11\<0><0><0> 3 


2 


STARID= 


~EXT 
001C 00000 MAKE_CUR_FILE: 
«WORD 
50 04 aC bdO 00002 MOVL 
54 D4 i CLRL 
3c AO e8 AF 09 29 0000 CMPC3 
9¢ 2 0000 BNEQ 
4 06 0001 INCL 
2D AB 01 00 54 £0 B00 1s 1$ INSV 
24 AB YF 0001 PUSHAB 
0000G CF 01 FB 0001B CALLS 
04 00020 RET 


; Routine Size: 33 bytes, Routine Base: S$CODE$ + 0300 


; 645 1023 1 


1$-Se0-1986 93:22:07 


AX-11 Oi isa es Ys - 02046 
MTAACP.SRCJHEADER.B32; 


P. AAD 
FORMAT_F ID 
Save R2,R3,R4 
LABELS, RO 
+ STARID, 60(RO) 


R4 
R4, #0, #1, 42(CURRENT_VCB) 
36 (CURRENT. VCB) 
#1, FORMAT-FID 


2s = a : 7 


H 2 
1e-Sep-1986 1S:46se1 — EATAACPSSRESHEADER- B32; yet oy 


eo 
32 


: pol 18 ¢ } GLOBAL ROUTINE UPDVCB_LEOV (BIT_VALUE) : COMMON_CALL NOVALUE = | 
: 649 1 1 44 
: 630 19 5 1 i 
; 651 1 8 1 ! FUNCTIONAL DESCRIPTION: 
: $26 13 3 : This routine sets or clears the logical end of file bit in the vCB 
; 624 19 1 1 ! CALLING SEQUENCE: 
; oe? i} § : : UPDVCB_LEOV(ARG1), called in kernel mode | 
: 889 1034 1 { INPUT PARAMETERS: 
; 658 9 -& =. value to set logical end of volume to: 
; 659 1 1! - clear bit 
: re¢ 13 , ! : 1 = set bit 
; 66¢ 1039 1°! IMPLICIT INPUTS: 
: o07 Hh : CURRENT_VCB = address of volume control block 
: 665 1048 1 | OUTPUT PARAMETERS: 
; 666 1045 7! none 
; 667 1044 1! 
3; 668 1045 1 ! IMPLICIT OUTPUTS: 
3 669 1046 CURRENT_VCBLVCB$V_LOGICEOVS] is set or cleared | 
: 671 1048 1 ! ROUTINE VALUE: 
; 67 1049 1 none 
: 678 1050 1! | 
3: 674 1051 1 ! SIDE EFFECTS: 
3 675 1038 1! none 
: 676 105 1! 
ie | 
; 679 1056 g BEGIN | 
: 681 1058 $ EXTERNAL REGISTER 
ae ie 
: 684 1061 CURRENT _VCBLVCB$V_LOGICEOVS) = .BIT_VALUE; 
; 685 1062 1 END; ' end of routine 
0000 0000 -ENTRY UPDVCB_LEOV, Save mart tes . : 1024 
OB AB 01 01 04 ac FO 9006 INSV BIT_VACUE, #1, #1, 11(CURRENT_VCB) : 1061 
04 0000 RET : 1062 


; Routine Size: 10 bytes, Routine Base: S$CODE$ + 0321 


; 686 1063 1 


>; 688 1064 1 

3 o88 1065 1 

; 690 1 7-9 
; 691 1067 1! 
; 69 1068 1! 
; 69 199) 1! 
; 694 1070 1! 
: 1972 1 i 
3 £36 1978 . 7 
; 698 1074 1! 
3 344 130? 1! 
; 700 1 re 1! 
; 701 1077 1! 
; 70 1078 1! 
; 70 1928 1! 
; 704 1080 1! 
s 705 1081 1! 
; 706 1Ose 1! 
3: 707 1083 1! 
; 708 1084 1! 
3; 709 1085 1! 
; 710 108% 1! 
: 711 1087 1 | 
: ay; 1088 1! 
a 1089 1! 
3 716 1090 1! 
: 715 1091 1! 
; 716 1936 1! 
: 717 1093 1! 
; 718 1094 1! 
: 719 1095 1! 
; 720 1096 1! 
s fel 1097 1! 
eS ¢ 1098 1! 
s 7 1099 1 

3: 7246 1100 

5 163 1101 

: 726 1106 

s fe7 110 

; 728 1104 

3: 729 1105 

5 # 1106 1 


; Routine Size: 8 bytes, 


731 


MTAACP.SRC 


2 
1b-sep-1964 09:22:07 yanett alisga32 v4.0274 


-Sep-19 


ROUTINE SET_NUMBER_OF LABELS (NUMBER_OF LABELS) : COMMON_CALL NOVALUE = 


++ 


FUNCTIONAL DESCRIPTION: 
This routine sets then number of Labels read | the MTAACP in the VCB. 
This value will be used to determine how many labels are written out 
won volume switch or at end of file -ocessing. The reason this is 
necessary is so that if a file is o; with fewer labels then we Supgort 
s 


we do not write the greater number IDR Labels out to the tape. T 
would be : noncompliance with the ANS: standard for tape Label 
processing. 


CALLING SEQUENCE: 
SET_NUMBER_Of _LABELS(ARG1), called in kernel mode 


INPUT PARAMETERS: 
Number of Labels read. 


IMPLICIT INPUTS: 
CURRENT_VCB = address of volume control block 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
CURRENT_VCBLVCB$B8_LBLCi."] is set 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


CURRENT _VCBCVCBSB_LBLCNTJ = .NUMBER_OF _LABELS; . 
END; ! end of routine 


0000 00000 SET_NUMBER_OF _LABELS: a 
WORD” Save nothi 


° n 
48 AB 0% AC 90 90002 HOVE NUMBER OF LABELS, 72(CURRENT_VCB) 
64 0000 RET 


Routine Base: $CODE$ + 0328 


a 


Page d 


p-1984 96:42:07 AX-11 Bliss-32 V4.0-742 
p-1984 12:46:41 MTAACP.SRCJHEADER.B32; 1 

Te 1108 1 END 

; 738 1109 

: 1110 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: SCODES 819 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

a hae Cie Le te a ee ee ae Syabels scnecwre Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBILIB.L32;1 18619 36 0 1000 00:01.8 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, iNITIAL,OPTIMIZE)/LIS=LIS$:HEADER/OBJ=OBJ$:HEADER MSRC$:HEADER/UPDATE=(ENHS$: HEADER) 


Size: 782 code ; 37 data bytes 


poner Used: 163 pages 
; Compilation Complete 


:R un Time 217, 
; cele y Time: 240.6 
3 Lines/CPU Min 771 

; Lexenes/CPU-Rin: 18091 
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